home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON02 / ACT02A / L02EXIT.DIR / SCRIPTS.CST_30.ls < prev    next >
Encoding:
Text File  |  2003-05-01  |  412 b   |  18 lines
  1. on nameMembers
  2.   repeat with i = 2 to 8
  3.     repeat with j = 2 to 8
  4.       erase(member(j, "draggables" & i && "betweens2"))
  5.     end repeat
  6.   end repeat
  7.   repeat with i = 2 to 8
  8.     repeat with j = 2 to 8
  9.       erase(member(j, "draggables" & i))
  10.     end repeat
  11.   end repeat
  12.   repeat with i = 2 to 8
  13.     repeat with j = 2 to 8
  14.       erase(member(j, "draggables" & i && "betweens1"))
  15.     end repeat
  16.   end repeat
  17. end
  18.